home *** CD-ROM | disk | FTP | other *** search
/ MacAdvocate 2 / apple-mac-advocate-ii-fall-1997.iso / mac / MacOS / Other Installers / LaserWriter 8.4.1 Installer / LaserWriter Disk 1 / PL.CommonRsrc / PL.CommonRsrc.rsrc / PS_-8147 < prev    next >
Encoding:
Text File  |  1996-09-10  |  429 b   |  21 lines
  1. %%BeginFile: lw8_lwnames-2.0
  2. /fontstring(|______                                                  )def
  3. /fontname{
  4. currentdict/FontName known{
  5. fontstring 0
  6. currentdict/FontName get fontstring 7 50 getinterval{cvs}stopped{
  7. $error/newerror F put
  8. pop pop pop pop/customfont
  9. }{
  10. length 7 add getinterval cvn
  11. }ifelse
  12. }{
  13. /customfont
  14. }ifelse
  15. }bd
  16. /copyfontdict Z
  17. /rename{
  18. copyfontdict fontname currentdict end definefont pop
  19. }bd
  20. %%EndFile
  21.